home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / biz / cloan / animgif_.lha / AnimGIF_Update / Install < prev    next >
Text File  |  1997-02-10  |  5KB  |  141 lines

  1. ; $VER: InstallAnimGIF_Update 1.1
  2. ; Cloanto AnimGIF Update Installer Script
  3. ; Copyright © 1996, 1997 Cloanto Italia srl
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  8.  
  9. (set #which-dir
  10.     "Please indicate the directory where Personal Paint 7 is installed:")
  11.  
  12. (set #which-dir-help
  13.     (cat "\nThis program updates the Rexx scripts and the I/O "
  14.     "library which are used by Personal Paint 7 to create and "
  15.     "load GIF animations."
  16.     "\n\nPlease specify the full path of the installed Personal "
  17.     "Paint software, including the final \"PPaint\" directory name "
  18.     "(or other, if a different drawer name was used).\n\n"
  19.     @askdir-help))
  20.  
  21. (set #message-loadanimgifok
  22.     "\nThis update is not required for the LoadAnimGif Rexx script which is already installed. This step will be skipped.")
  23.  
  24. (set #message-saveanimgifok
  25.     "\nThis update is not required for the SaveAnimGif Rexx script which is already installed. This step will be skipped.")
  26.  
  27. (set #message-pgifioliboklcl
  28.     "\nThis update is not required for the Personal GIF I/O library which is already installed in PPaint:libs. This step will be skipped.")
  29.  
  30. (set #message-pgifioliboksys
  31.     "\nThis update is not required for the Personal GIF I/O library which is already installed in LIBS:. This step will be skipped.")
  32.  
  33. (set #message-pgifiolibnotoklcl
  34.     "\nThis update was not designed for the version of the Personal GIF I/O library which was found in PPaint:libs. This step will be skipped.")
  35.  
  36. (set #message-pgifiolibnotoksys
  37.     "\nThis update was not designed for the version of the Personal GIF I/O library which was found in LIBS:. This step will be skipped.")
  38.  
  39. (set #error-loadanimgif
  40.     "\nLoadAnimGif Rexx script could not be found in PPaint:Rexx. It will not be updated.")
  41.  
  42. (set #error-saveanimgif
  43.     "\nSaveAnimGif Rexx script could not be found in PPaint:Rexx. It will not be updated.")
  44.  
  45. (set #error-pgifiolib
  46.     "\nPersonal GIF I/O library could not be found in PPaint:libs. It will not be updated.")
  47.  
  48. (set #busy-loadanimgif
  49.     "Updating LoadAnimGif Rexx script.")
  50.  
  51. (set #busy-saveanimgif
  52.     "Updating SaveAnimGif Rexx script.")
  53.  
  54. (set #busy-pgifioliblcl
  55.     "Updating Personal GIF I/O library in PPaint:libs.")
  56.  
  57. (set #busy-pgifiolibsys
  58.     "Updating Personal GIF I/O library in LIBS:.")
  59.  
  60. (if (AND (<> (getassign "PSUITEROOT" "a") "") (<> (getassign "KARACDROOT" "a") "")) (set ppaint_dest "") (set ppaint_dest (getassign "PPaint" "a")))
  61. (if (<> (getassign "PCDPPAINT" "a") "") (set ppaint_dest (getassign "PCDPPAINT" "a")))
  62. (if (AND (<> (getdevice ppaint_dest)(getdevice "RAM:"))(< (getdiskspace ppaint_dest) 10240)) (set ppaint_dest ""))
  63. (if (= ppaint_dest "") (set ppaint_dest @default-dest))
  64.  
  65. (set ppaint_dest (askdir
  66.     (prompt #which-dir)
  67.     (help #which-dir-help)
  68.     (default ppaint_dest)
  69.     (newpath)
  70. ))
  71.  
  72. (set target1 (tackon ppaint_dest "PPaint"))
  73. (if (<> (exists target1) 1) (if (= (exists target1) 2) (set ppaint_dest target1)))
  74. (set @default-dest ppaint_dest)
  75.  
  76. (working #busy-loadanimgif)
  77. (set source1 "Rexx/LoadAnimGif.pprx")
  78. (set target1 (tackon ppaint_dest source1))
  79. (if (<> (exists target1) 1) (message #error-loadanimgif) (
  80.     (if (AND (NOT (earlier target1 source1)) (>= (getsize target1) (getsize source1))) (message #message-loadanimgifok) (
  81.         copyfiles
  82.             (prompt #busy-loadanimgif)
  83.             (help @copyfiles-help)
  84.             (source source1)
  85.             (dest (pathonly target1))
  86.             (optional "nofail" "force")
  87.             (confirm)
  88.     ))
  89. ))
  90.  
  91. (working #busy-saveanimgif)
  92. (set source1 "Rexx/SaveAnimGif.pprx")
  93. (set target1 (tackon ppaint_dest source1))
  94. (if (<> (exists target1) 1) (message #error-saveanimgif) (
  95.     (if (AND (NOT (earlier target1 source1)) (>= (getsize target1) (getsize source1))) (message #message-saveanimgifok) (
  96.         copyfiles
  97.             (prompt #busy-saveanimgif)
  98.             (help @copyfiles-help)
  99.             (source source1)
  100.             (dest (pathonly target1))
  101.             (optional "nofail" "force")
  102.             (confirm)
  103.     ))
  104. ))
  105.  
  106. (set target1 (tackon ppaint_dest "libs/personal_gif_io.library"))
  107. (if (<> (exists target1) 1) (message #error-pgifiolib) (
  108.     (if (>= (getversion target1) 327683) (message #message-pgifioliboklcl) (
  109.         (if (= (getsize target1) 12112) (
  110.             (working #busy-pgifioliblcl)
  111.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_51.pch \"" target1 "\""))
  112.             (run runstring)
  113.         ))
  114.         (if (<> (getsize target1) 12596) (message #message-pgifiolibnotoklcl) (
  115.             (working #busy-pgifioliblcl)
  116.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_52.pch \"" target1 "\""))
  117.             (run runstring)
  118.             (run "Avail >NIL: <NIL: FLUSH")
  119.         ))
  120.     ))
  121. ))
  122.  
  123. (set target1 "LIBS:personal_gif_io.library")
  124. (if (= (exists target1) 1) (
  125.     (if (>= (getversion target1) 327683) (message #message-pgifioliboksys) (
  126.         (if (= (getsize target1) 12112) (
  127.             (working #busy-pgifiolibsys)
  128.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_51.pch \"" target1 "\""))
  129.             (run runstring)
  130.         ))
  131.         (if (<> (getsize target1) 12596) (message #message-pgifiolibnotoksys) (
  132.             (working #busy-pgifiolibsys)
  133.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_52.pch \"" target1 "\""))
  134.             (run runstring)
  135.             (run "Avail >NIL: <NIL: FLUSH")
  136.         ))
  137.     ))
  138. ))
  139.  
  140. (exit)
  141.